home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-readerstuff-
/
pete_sullivan
/
installme1st
/
installvc
< prev
next >
Wrap
Text File
|
1999-04-21
|
7KB
|
291 lines
;**************************************************
;
;$VER: VitalConnectv2.0 (June 1998
;
; Title:
; VitalConnect Installer
;
; Description:
; The Commodore Installer Script for VitalConnect
;
; Installer script by Pete Sullivan
;
;**************************************************
(set true 1)
(set false 0)
(set quote "\"")
(set nothing "")
(set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
(set VitalConnect_dir (getassign "VitalConnect"))
(set c_dir (getassign "C"))
(set libs_dir (getassign "LIBS"))
(set fonts_dir (getassign "FONTS"))
(set devs_dir (getassign "DEVS"))
(set s_dir (getassign "S"))
(set wbstartup_dir (getassign "SYS:WBSTARTUP"))
(set Src_root "")
(set Src_c "c/")
(set Src_s "s/")
(set Src_libs "libs/")
(set Src_devs "devs/")
(set Src_rexx "rexx/")
(set Src_DATA "DATA/")
(set Src_Sullitech "/")
(set Src_docs "Docs/")
(set Src_fonts "Fonts/")
(set Src_WBStartup "WBStartup/")
(set Src_AmiFTP "AmiFTP/")
(set Temp_dir "ram:t/")
(set MSG_CopyDevs1 "\n\nCopying needed device ")
(set MSG_CopyDevs2 " to DEVS:")
; start with not updated software!
(set is_update false)
(if (<> VitalConnect_dir nothing)
(if (askbool
(prompt "\n\n\nAn earlier version of VitalConnect already exists in"
" your drawer named: \n\n"
quote VitalConnect_dir quote
"\n\nDo you want the update installed over it?")
(help
"\n\n\nThe installer has determined that you already have a "
"some version of the VitalConnect software installed "
"on your system. If this is wrong or you want the update "
"installed elsewhere, select 'NO', otherwise select 'YES'."
)
(default 1)
)
(set is_update true)
;else ask where to put software
(
(set VitalConnect_dir
(askdir
(prompt "Where would you like the updated software "
"installed?\n"
"The directory 'VitalConnect' will be created automatically.\n")
(help @askdir-help)
(default @default-dest)
)
)
(set VitalConnect_dir
(tackon VitalConnect_dir "VitalConnect")
)
(makedir VitalConnect_dir
(infos)
)
)
)
)
; VitalConnect: was not previously assigned, so ask where to make it
(if (= VitalConnect_dir nothing)
(
(set VitalConnect_dir
(askdir
(prompt "Where would you like the software installed?\n"
"The directory 'VitalConnect' will be created automatically.\n")
(help @askdir-help)
(default @default-dest)
)
)
(set VitalConnect_dir
(tackon VitalConnect_dir "VitalConnect")
)
(makedir VitalConnect_dir
(infos)
)
)
)
(set @default-dest VitalConnect_dir)
(complete 5)
(working omp "...Please Wait...")
(copyfiles
(prompt "Select file(s) to be copied into your WBStartup: directory:")
(help "\n\n\n\n\nThis will copy the NetStart facility to your WBStartup: "
"directory.\n\n\n\n\n\n\n\n"
@copyfiles-help)
(source Src_root)
(dest "SYS:WBStartup")
(pattern "(IconDock|IconDock.info)")
)
(complete 20)
(working omp "...Please Wait...")
;copy Cando.library
(copylib
(source (tackon Src_libs "cando.library"))
(dest "LIBS:")
(prompt "Copying needed 'Cando.library' to LIBS:")
(help @copylib-help)
)
(complete 30)
; Copy SulliTech
(working omp "...Please Wait...")
(set VitalConnect_dir
(copyfiles
(prompt "These files will be copied to the VitalConnect: directory:")
(help "\n\n\n\n\n\nThis will copy VitalConnect's main "
"programs.\n\n\n\n\n\n\n"
@copyfiles-help)
(source Src_root)
(dest VitalConnect_dir)
(pattern "(#?IconDock|IconDock.info|IconDock2|IconDock2.info|Shrink|Shrink3|Shrink4|IconDock3|IconDock3.info|IconDock4|IconDock4.info|Sullitech|IconVert|About|Sullot|ReadMe|Readme.info|VCInfo|QuickStart|QuickStart.info#?)")
)
)
(complete 50)
;create Documentation directory
(set Docs_dir
(cat VitalConnect_dir)
)
(set Docs_dir
(tackon Docs_dir "Docs")
)
(makedir Docs_dir
(infos)
)
(working omp "...Please Wait...")
(copyfiles
(prompt "Select file(s) to be copied to the VitalConnect:Docs directory:")
(help "\n\n\n\n\nThis will copy the HTML documentation for "
"VitalConnect. This documentation should reside in your "
"'VitalConnect:Docs' directory.\n\n\n\n\n\n"
@copyfiles-help)
(source Src_Docs)
(dest Docs_dir)
(pattern "#?vc#?")
)
(complete 60)
;create Rexx directory
(set Rexx_dir
(cat VitalConnect_dir)
)
(set Rexx_dir
(tackon Rexx_dir "Rexx")
)
(makedir Rexx_dir
(infos)
)
(working omp "...Please Wait...")
(copyfiles
(prompt "These file(s) must be copied into the Rexx directory:")
(help "\n\n\n\nRexxMast MUST be running on your system for "
"VitalConnect to use. These AREXX scripts should reside in your "
"'VitalConnect:Rexx' directory.\n\n\n\n\n\n"
@copyfiles-help)
(source Src_Rexx)
(dest Rexx_dir)
(pattern "#?rx#?")
)
(complete 70)
; add assigns to User-Startup if this is not an update
(if (= is_update false)
(if (askbool
(prompt "\nIn order for VitalConnect to work correctly, "
"Somewhere in the USER-STARTUP must be an assigment"
" for 'VitalConnect:'\n\n"
"These lines can be added for you automatically by this "
"installer. Would you like these lines added? \n\n"
" assign VitalConnect: "VitalConnect_dir)
(help @askbool-help)
)
(
(if (= @pretend 0)
(
(
(if (not (exists "s:user-startup"))
(textfile
(dest "s:user-startup")
(append ";user-startup \n\n")
)
)
(textfile
(dest "ram:user-startup")
(include "s:user-startup")
(append ";BEGIN VitalConnect assignment\n")
(append "assign VitalConnect: " VitalConnect_dir)
(append "\n;END VitalConnect assignment\n")
)
(rename "s:user-startup" "s:user-startup.old")
(copyfiles
(help @copyfiles-help)
(source "ram:user-startup")
(dest "s:")
)
(delete "ram:user-startup")
)
)
)
)
)
)
(complete 60)
(exit)